home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
dos
/
try_qb
/
edpat.bas
(
.txt
)
< prev
next >
Wrap
QuickBASIC Tokenized Source
|
1989-12-04
|
5KB
|
81 lines
DrawPattern
EditPattern
Initialize
ShowPattern
Pattern
PatternSize
ByteNum
BitNum
State
RefTime
Check
CurrentByte
CurrentColor
PatternByte
DrawPattern
= DRAWPATTERN
Draws a patterned rectangle on the right side of screen
Set view to rectangle
Use PAINT to fill itr
Set view to full screen
EditPattern
= EDITPATTERN
Edits a tile-byte pattern
Starting position.=
CHR$(0) is the first byte of the=
two-byte string returned when a
direction key such as UP or DOWN is
pressed.n
Calculate starting location on screen of this bit:=
Wait for a key press (and flash cursor each 3/10 second):
Check timer and switch cursor state if 3/10 second:
Turn the border of bit on and off:
Check for key press.
Loop until a key is pressed.0
Erase cursor:
Respond to key press.
ESC key pressed:r
exit this subprogramr
SPACEBAR pressed:
reset state of bits
Invert bit in pattern string:
Redraw bit on screen:
ENTER key pressed:
draw pattern in box on right.
LEFT key: move cursor leftd
RIGHT key: move cursor right
UP key: move cursor up
DOWN key: move cursor downh
User pressed a key other than ESC, SPACEBAR,
ENTER, UP, DOWN, LEFT, or RIGHT, so don't
do anything.O
Initialize
= INITIALIZE
Sets up starting pattern and screen
ESC character is ASCII 27.=
Set up an array holding bits in positions 0 to 7:
Input the pattern size (in number of bytes):t
Enter pattern size (1-16 rows):"
Set initial pattern to all bits set:
640 x 200 monochrome graphics mode.
Draw dividing lines:n
Print titles:
Pattern Bytes"
Pattern View
Draw editing screen for pattern:p
Print label on left of each line:
Draw "bit" boxes:
Draw "Pattern View" box.
DIRECTION keys........Move cursor"
SPACEBAR............Changes point"
ENTER............Displays pattern"
ESC.........................Quits"
ShowPattern
= SHOWPATTERN
Prints the CHR$ values used by PAINT to make pattern=
Return screen to 80-column text mode:
The following characters make up your pattern:
Print out the value for each pattern byte::
CHR$("
New pattern? "